求<窗体向屏幕四周拉开>的代码??

来源：百度知道 编辑：UC知道 时间：2024/09/22 19:38:02
当打开VB生成的EXE时,窗体由屏幕中心向四周拉开,当窗体边距离屏幕四周为1000时即停止变大(说简单点就是窗体的面积越来越大,当大到一定时即停止变大)
二楼的你好!谢谢你的回复,你的代码还行,只不过我想要的是窗体由屏幕中间并且分别向四个方向伸开,希望你再努力一下.再次多谢帮我.

Private Sub Form_Load()
Form1.Top = (11520 / 2) - (405 / 2) '11520是显示器的高，405是窗体的高
Form1.Left = (15360 / 2) - (1680 / 2) '15360是显示器的长，1680是窗体的高
End Sub

Private Sub Timer1_Timer()
Dim gao As Single
Dim chang As Single
gao = (11520) / 15 'gao是一次变化的高，15就是变化15次
chang = (15360) / 15 'chang是一次变化的长，15就是变化15次
If Form1.Top < 1000 Or Form1.Left < 1000 Then
Timer1.Enabled = False
Exit Sub
End If
Form1.Height = Form1.Height + gao
Form1.Width = Form1.Width + chang
Form1.Top = Form1.Top - gao / 2
Form1.Left = Form1.Left - chang / 2
End Sub
这是源码，用到了时钟控制，有问题联系。